* fileio.c (Ffind_file_name_handler): Check that FILENAME is a

	string.

diff --git a/src/fileio.c b/src/fileio.c
index 5e6f048b9c25cde10c9dd12e4f89ed2594b56d1a..ff79504430cae70b155adf2c8d4657e86f7d4b96 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -174,6 +174,8 @@ A file name is handled if one of the regular expressions in\n\
 {
   /* This function must not munge the match data.  */
 
+  CHECK_STRING (filename, 0);
+
   Lisp_Object chain;
   for (chain = Vfile_name_handler_alist; XTYPE (chain) == Lisp_Cons;
        chain = XCONS (chain)->cdr)